home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b5.d64 / filemaker (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  36 lines
  1. 100 REM FILEMAKER: FONT FILE CREATOR FOR CLOCKWISE
  2. 101 :
  3. 105 REM WRITTEN BY JOHN KROUT
  4. 106 :
  5. 110 REM COPYRIGHT 1987 BY JOHN KROUT
  6. 111 :
  7. 115 REM MAY BE COPIED AND DISTRIBUTED FOR FREE BUT NOT SOLD OR MODIFIED
  8. 116 :
  9. 189 :
  10. 190 REM COPY THE C64 ROM FONT INTO RAM
  11. 191 :
  12. 200 PRINT CHR$( 147 ) CHR$( 14 ) : POKE 56, 19 : POKE 55, 255 : CLR
  13. 205 POKE 56334, PEEK( 56334 ) AND 254
  14. 210 PRINT"MOVING CHARACTER SHAPES TO [210][193][205] ..." : PRINT
  15. 215 POKE 1, PEEK( 1 ) AND 251 : A=2047 : B=5120 : C=53248 + 2048
  16. 220 FOR I=0 TO A : POKE I + B, PEEK( I+C ) : NEXT
  17. 230 POKE 1, PEEK( 1 ) OR 4 : POKE 56334, PEEK( 56334 ) OR 1
  18. 239 :
  19. 300 PRINT "CREATING SHAPE TRANSLATION TABLE ..." : PRINT
  20. 305 BB=5120 + 2048 : FOR P=0 TO 255 : PB=P + BB : POKE PB, P OR 128
  21. 310 K2=1 : FOR J=0 TO 6 : K=64 / K2 : POKE PB, PEEK( PB ) AND ( 255-K )
  22. 315 IF P AND K2 THEN POKE PB, PEEK( PB )OR K
  23. 320 K2=K2 * 2 : NEXT : NEXT
  24. 349 :
  25. 350 PRINT CHR$(147)
  26. 352 PRINT "TIME TO SAVE THE FONTFILE ON DISK."
  27. 354 PRINT "PUT YOUR CLOCKWISE DISK IN THE DRIVE"
  28. 356 PRINT "AND THEN TAP THE [210][197][212][213][210][206] KEY."
  29. 358 GET A$ : IF A$="" GOTO 358
  30. 360 PRINT CHR$(147) : PRINT
  31. 365 PRINT "POKE43, 0 : POKE44, 20 : POKE 45, 0 : POKE46, 29" : PRINT : PRINT
  32. 370 PRINT "SAVE"+CHR$(34)+"FONTFILE"+CHR$(34)+",8" : PRINT : PRINT : PRINT
  33. 375 PRINT "POKE 43, 1 : POKE 44, 8 : POKE 45," PEEK(45) ": POKE 46," PEEK(46)
  34. 380 PRINT CHR$(19);
  35. 385 POKE 631, 13 : POKE 632, 13 : POKE 633, 13 : POKE 198, 3
  36.